Шаг 56 - Инструкция Resume.

Продолжает выполнение программы после завершения подпрограммы обработки ошибок.

Resume			Если ошибка возникла в процедуре, в которой находится обработчик ошибок, то 
			выполнение программы продолжается с инструкции, следующей за той, которая привела 
			к ошибке.  Если ошибка возникла в вызванной процедуре, выполнение продолжается с 
			инструкции в процедуре, содержащей обработчик ошибок, из которой был сделан последний вызов.
Resume Next		Если ошибка возникла в процедуре, в которой находится обработчик ошибок, то 
			выполнение программы продолжается с инструкции, следующей за той, которая привела к ошибке.  
			Если ошибка возникла в вызванной процедуре, выполнение продолжается с инструкции, 
			непосредственно следующей за той инструкцией в процедуре, содержащей обработчик ошибок 
			(или инструкцию On Error Resume Next), из которой был сделан последний вызов.
Resume строка		Выполнение программы продолжается со строки, указанной в обязательном аргументе строка.  
			Аргумент строка должен определять метку строки или номер строки внутри процедуры, содержащей 
			данный обработчик ошибок.

Замечания
Если инструкция Resume используется в любой другой программе, помимо обработчика ошибок, то возникает ошибка.

Пример
В данном примере инструкция Resume используется для прекращения обработки ошибок в процедуре и возобновлению выполнения инструкции, которая привела к ошибке. Для иллюстрации создается ошибка с кодом 55.

Sub ResumeStatementDemo()
	On Error GoTo ErrorHandler		' Включаем обработчик ошибок.
	Open "TESTFILE" For Output As #1	' Открываем файл.
	Kill "TESTFILE"				' Попытка удалить открытый файл.
	Exit Sub				' Выходим из процедуры, чтобы
						' не попасть в обработчик.
ErrorHandler:					' Подпрограмма обработки ошибок.
	Select Case Err.Number			' Определяем код ошибки.
		Case 55	' "Ошибка "Файл уже открыт".
			Close #1		' Закрываем открытый файл.
		Case Else

' Здесь размещаются инструкции для обработки других ошибок...
	End Select
	Resume					' Возобновляем выполнение процедуры 
						' со строки, вызвавшей ошибку.
End Sub
Hosted by uCoz